home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / demo / dynahlp.zip / DYNATEXT.HLP / dynatext.p4w next >
Text File  |  1995-03-07  |  2KB  |  61 lines
  1.  
  2.  
  3. var
  4.    textVar : string = 'Initial Value';
  5.    videoFile : string = 'hact7.avi';
  6.    bitmapFile : string = 'graylogo.bmp';
  7.    paletteBMP : string = 'graylogo.bmp';
  8.    count : integer = 1;
  9.    bitmapCount : byte = 1;
  10.    maxCount : integer = 4;
  11.    fld2 : integer = 0;
  12.    combinedVideo : string = 'fruit.avi';
  13.    combinedBitmap : string = '126.bmp';
  14.  
  15.    colors : longint;
  16.    palette : longint;
  17. endVar
  18.  
  19. procedure updateDisplay
  20.         inc(count);
  21.         if (count > maxCount)
  22.                 count := 1;
  23.         endif
  24.         switch count of
  25.                 case 1 : textVar := 'First Value';
  26.                 endCase
  27.                 case 2 : textVar := '2nd Value';
  28.                 endCase
  29.                 case 3 : textVar := 'The 3rd Value';
  30.                 endCase
  31.                 case 4 : textVar := 'The Last Value';
  32.                 endCase
  33.         endSwitch
  34.         refreshWindow;
  35. endProc
  36.  
  37. procedure updateBitmap
  38.         bitmapCount := 1 - bitmapCount;
  39.         if (bitmapCount = 0)
  40.                 bitmapFile := 'hactlogo.bmp'
  41.         else
  42.                 bitmapFile := 'graylogo.bmp'
  43.         endif
  44.         refreshWindow;
  45. endProc
  46.  
  47. procedure animateBitmap;
  48. var
  49.         i : integer;
  50. endVar
  51.         palette := getBMPPalette("paletteBMP");
  52.         colors := getBMPNumOfColors("paletteBMP");
  53.         markAllPaletteEntries(palette);
  54.         { for i := 1 to colors }
  55.                 cyclePalette(palette);
  56.                 animatePalette("paletteBMP", palette);
  57.         { endFor }
  58.         releasePalette(palette);
  59. endProc
  60.         
  61.